home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1306 / ptw32.zip / TN3270E.PSL < prev    next >
Text File  |  1996-11-19  |  954b  |  38 lines
  1. #
  2. # Opens a TN3270E connection (Via TCP/IP WINSOCK api).
  3. #
  4. # Parameters : $p1 - host name.
  5. #                     $p2 - telnet port number.
  6. #                     $p3 - LU name.
  7. #
  8.  
  9. ShowMessage = 0
  10. if {$pc < 1} {ShowMessage = 1} elseif {$p1 == "Host-Name"} {ShowMessage = 1}
  11.  
  12. if {$ShowMessage == 1} {
  13.  line1 = "You are now executing the script TN3270E.PSL.\n"
  14.  line2 = "This script requires a MainFrame host name as a parameter.\n"
  15.  line3 = "Please modify your command line or shortcut\n"
  16.  line4 = "by replacing the script parameter Host-Name\n"
  17.  line5 = "with the MainFrame host name you would like to connect to.\n"
  18.  line6 = "\n"
  19.  line7 = "Example: PTW32.EXE TN3270E.PSL HOSTA"
  20.  message "$line1$line2$line3$line4$line5$line6$line7"
  21.  return
  22. }
  23.  
  24. set comm-type tn3270
  25. set host-name $p1
  26. set use-tn3270e-protocol true
  27. if [info exist p2] {
  28.  set telnet-port $p2
  29.  if [info exist p3] {
  30.   set lu-name $p3
  31.  }
  32. }
  33. session open
  34. set session-name $p1
  35. run keys.psl
  36.  
  37.  
  38.